Pascal (Apollo) Enumerated Types

Pascal enumerated types are defined using the define-enumerated special form:

(define-enumerated type-name {element}^*) undefined syntax

where type-name is just for identification, and the elements are the enumerated types. For example,

formula vobeyspaces :

!:} (define-enumerated ios_$create_mode_t ios_$no_pre_exist_mode ios_$preserve_mode ios_$recreate_mode ios_$truncate_mode ios_$make_backup_mode ios_$loc_name_only_mode )

The foreign procedure is called with the enumerated type name just as in Pascal.